home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g39.bas < prev    next >
BASIC Source File  |  1991-10-18  |  1KB  |  39 lines
  1. 100 ' G39 T.WAKAMATSU
  2. 110 CLS:Z=0:CL(1)=7:CL(2)=4:CL(3)=6:CL(4)=5:CL(5)=1:C(6)=0
  3. 120 FOR D=1 TO 2000:NEXT D
  4. 130 FOR C=1 TO 6
  5. 140   RESTORE 360:Z=Z+1
  6. 150   FOR I=1 TO 3
  7. 160     READ X(I),Y(I)
  8. 170   NEXT I
  9. 180   T=15/180*3.14159!:T1=30/180*3.14159!
  10. 190   FOR K=1 TO 24
  11. 200     SX=0:SY=0
  12. 210     FOR J=1 TO 3
  13. 220       M1=(X(J)-320)*COS(T)-(Y(J)-240)*SIN(T)+320
  14. 230       N1=(X(J)-320)*SIN(T)+(Y(J)-240)*COS(T)+240
  15. 240       X(J)=M1:Y(J)=N1:SX=SX+M1:SY=SY+N1
  16. 250     NEXT J
  17. 260     GX=SX/3:GY=SY/3
  18. 270     FOR J=1 TO 3
  19. 280       M=(X(J)-GX)*COS(T1)-(Y(J)-GY)*SIN(T1)+GX
  20. 290       N=(X(J)-GX)*SIN(T1)+(Y(J)-GY)*COS(T1)+GY
  21. 300       X(J)=M:Y(J)=N
  22. 310     NEXT J
  23. 320     GOSUB *TRIANGLE
  24. 330   NEXT K
  25. 340   FOR Q=1 TO 5800:NEXT Q
  26. 350 NEXT C
  27. 360 DATA 240,220,120,210,200,40
  28. 370 GOTO 470
  29. 380 *TRIANGLE
  30. 390 PSET(X(3),Y(3))
  31. 400 IF INT((K+Z)/3)*3=K+Z THEN F=7 ELSE F=CL(C)
  32. 410 IF CL(C)=0 THEN F=0
  33. 420 FOR I=1 TO 3
  34. 430   LINE-(X(I),Y(I)),PSET,F
  35. 440 NEXT I
  36. 450 FOR D=1 TO 40:NEXT D
  37. 460 RETURN
  38. 470 CLS
  39.